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.LIST 

inMOD 

MODULF 

.TITLE 

ODXCOM 



SRQ,LnC,BIN 

DH ._ _ 
VERSION 



OHAL >l/l/5,5/<17000,25 
40000. DHAL /I, 1,5, 5, ,17000 
HAL DEC/Xll SYSTEM EXERCIS 



BEGIN: 

modnam: 

xflag: 

addr: 

vector: 

BRl: 

BR2: 

Dvioi: 

SRl: 

SR2: 

SR3: 

SR4J 

Stat: 

init: 

spoint: 

pascnt: 

inoNT: 

ICOUhT: 

sofcnt: 

HRDCNT: 
SOFPAS: 
HRUPAS: 
SYSCNT: 

rannum: 

CONFIG: 

RFSl: 

RES2: 

SVRO: 
svRl: 
SVR2: 

SVR3: 
SVR4: 
svRS : 

SVR6S 
CSRA: 

SBADR: 

acsr: 

wasadr: 

astat: 

ERRTYP: 

asb: 

AWAS: 

rstrt: 

WDTO: 

taOFR: 

INTR: 

idnum: 



,25 

ER MODHLE 
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/DHAL / 
OPEN 



PRTY5+0 
PRTY5+0 



.ASCII 

.BYTE 

1*0 

1+0 

.BYTE 

.BYTE 

♦ I 

OPEN 

OPEN 

OPEN 

OPEN 

140000 

START 

MODSP 



17000 



















OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

RESTRT 

OPEN 

OPEN 

OPEN 

25 

.REPT SPSIZ 



;M0DULE NAME. 

;nSED TO tTEEP TRACK OF WBUFF USAGE 
;1ST DEVICE ADDR. 

?1ST DEVICE VECTOR. 

;IST BR LEVEL. 

;2ND RR LEVEL. 

;DEVICE INDICATOR 1- 

;SWITCH REGISTER 1 



;SWITCH REGISTER _ 
;SWITCH REGISTER 3 
SSWITCH REGISTER 4 



**««t«ftft<^«rft*»««ft«r«'Ar«r* 



STATUS WORD. 

MODULE START ADDR. 

MODULE STACK POINTER. 

PASS COUNTER. 

# OF ITERATIONS PER PASS=17000 

LOC TO COUNT ITERATIONS 

LOC TO SAVE TOTAL SOFT ERRORS 

LOC TO SAVE TOTAL HARD ERRORS 

LOC TO SAVE SOFT ERRORS PER PASS 

LOC TO SAVF HARD ERRORS PER PASS 

» OF SYS ERRORS ACCUMULATED 

HOLDS RANDOM » WHEN RAND MACRO IS CALLED 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 

LOC TO SAVE RO. 

LOC TO SAVE Rl. 

LOC TO SAVE R2. 

LOC TO SAVE R3. 

LOC TO SAVE R4. 

LOC TO SAVE R5. 

LOC TO SAVE R6. 

ADDR OF CURRENT CSR. 

ADDR OF GOOD DATA, OR 

CONTENTS OF CSR. 

ADDR OF BAD DATA, OR 

STATUS REG CONTENTS. 

TYPE OF ERROR 

EXPECTED DATA. 

ACTUAL DATA. 

RESTART ADDRESS AFTER END OF PASS 

WORDS TO MEMORY PER ITERATION 

WORDS FROM MEMORY PER ITERATION 

» OF INTERRUPTS PER ITERATION 

MODULE IDENTIFICATION NUMBER=25 

MODULE STACK STARTS HERE. 



DHAL DKC/XU 
XDHaLO.Pli 

35« 

35^ 

360 

361 

362 0002: 

363 
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.NLIST 

.WORD 

.LIST 

.ENDR 
MODSP : 
.**»**********»*****»**** *********************************************** 
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375 



000224' 
000230* 



mi 



001002 
104410 



000244' 
000246' 
000252' 
000256' 
0QQ260' 
000264' 
000266' 
000270' 
000272' 
000300' 



m- 



ooc 

00( 



000320' 
000324- 



000336' 

000342' 
000346' 
--0350' 



r- 



000._. 
000354 
00036- 
00036- 
000366 
000372 



000374' 
000400' 
000402' 
000406' 
000410' 
000414' 



005000 
016701 
042701 
001405 

mwi 

103401 
000773 
016067 
042767 

016701 
001752 

016700 
016702 
012703 
006 201 
103415 
001430 
062700 

005767 
100002 
062700 
062703 
9§2''02 
000761 
004567 
000013' 

004567 

000012' 

005767 

mm 

000761 



looioo 



002602' 
177760 



177470 
177462 
002502' 



000010 

177450 

000010 
000020 
000020 

001426 



001420 
177410 
000010 



;START 
;IF SO, 



RO»»TINE. DETERMINE IF ANY DH'S 

BEGIN MODULE PROCESSING... IF NOT 



ARE SELECTEn 

, DROP THE MODULE FROM THE Rl'N 



105067 003616 

016767 177560 003566 



CLRB 
MOV 



DATA 

DVIDI, SELECT 



?INITIALI7E THE DATA PATTERN WORD 

;COPV THE DEVICE SELECTION PARAMETER. ARE 

;ANY DEVICES SELECTED? 

;TF Sn, BEGIN PROCESSING. IF NOT, DROP THE MODULE 



ENDS, BEGIN 



;INITIALIZE THE NUMBER OF PASSES TO BE 
^VECTORS TO INTERRUPT IN THF SUBROUTINE 
;VCTLOArt FOR THIS PURPOSE. 



MADE. SET UP THE DHll INTERRUPT 
LINKING TRBLE. CALL S"RP0UT1NE 



177536 
003516 



IS: 



2S: 



2S: 



CLR 

MOV 

BIC 

BEO 

ADD 

ROR 

BCS 

BR 

MOV 

BIC 

MOV 
BEQ 

MOV 
MOV 
MOV 
ASR 
BCS 
BEQ 
ADD 

TST 

BPL 

ADD 

ADD 

ADD 

BR 

JSR 

BR2 

JSR 
BRl 
TST 
BPL 
ADD 
BR 



|106000,R1 



ffl'R 



2S 
IS 

CNTTBL(R0),ICONT 
#177760, SELECT 

SELECT, Rl 
DROP 

VECTOR, RO 
ADDR,R2 
#LNKTAB,R3 
Rl 

SETUP2 
#10, RO 

SRI 

#10, RO 
#20, R3 
#20, R2 

R5,VCTL0AD 



R5,VCTLOA0 

If 

#10, RO 



INIT POINTER 
GET BAUD RATE 
THROW 2040 CNF BIT AWAY 
LEAVE IF SRI IS 
ELSE BUMP POINTER 
LOOK FOR THE SRI BIT 
LEAVE IF HE FOUND IT 
ELSE DO IT AGAIN 

jSET ITERATION COUNT 
REMOVE UNWANTED BITS FROM THE DEVICE SELECTION 
PARAMETER 

COPY THE DEVICE SELECTION PARAMETER INTO Rl 
IF NO DEVICES SELECTED (ALL FLAGS CLPAR) DROP THE 
MODULE 

LOAD THE VECTOR ADDRESS IN RO 
LOAD R2 yITH ADDRESS OF FIRST DHll 
POINT R3 TO THE BEGINNING OF JSR LINKING TABLE 
ISOLATE A SELECTION FLAG IN THF CARRY BIT 
IF THE FLAG IS SET, GO SET UP THE VECTORS 
IF NO FLAGS ARE LEFT, GO SET UP THE BUFFERS 
IF MORE FLAGS ARE SET, ADJUST POIiJTERS. THE 
VECTOR POINTER... 
EIGHT WORDS «ETWEEN VECTORS ? 
BR IF NOT 

FIX VECTOR POINTER 
THE ADDRESS POINTER... 
AND THE LINKAGE TABLE POINTER 
GO SFT UP THE NEXT DHll ADDRESSES 
CALL THE VECTOR SETUP ROUTINE FOR RECEIVER 
VECTOR, PASSING THE RECEIVER RR LEVEL AS THE 
ARGUMENT 

SET UP THE TRANSMITTER VECTOR PASSING THE 
TRANSMITTER BR LEVEL AS THE ARGUMENT 
EIGHT WORDS BETWEEN VECTORS "> 
BR IF NOT 
FIX VCTR POINTER 
GO SETUP THE NEXT DHll 



;THIS BLOCK RESETS ALL THE QUEUE POINTERS, CLEARS THE TRANSMITTER TEXT BUFFER, THV 
;RECEIVER BUFFERS, AND THE QUEUES. THIS IS THE BEGINNING OF THE ITERATIVE PART OF THE 
5PR0GRAM. 
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000424 




000514' 
000520' 

000526' 

mnt- 

000540' 
000542' 
000546' 
000550' 

000554' 
000560' 
""564' 



mit'i 



0005 



^r. 



000602' 012761 



000610' 
000614' 
000616' 
000620' 
000622' 



000624' 
000630' 
000636' 



004767' 
005302 
001751 
005211 
"7764 



0007 



012701 
116767 
116767 



000644' 
000650' 
000654" 



012702 
116721 

005660' 00530? 



003345 



003314 
003333 
177266 
002764' 

000000' 



000020 

004000 

001000 
000060 
003246 
000020 
003234 

177774 

001316 



002764' 



SETWP2: MOV 
MOV 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
DEC 
BNE 
CLRB 



IS: 



#XMTQUE,XMrOPI 

#XMTQUE,XMTQPO 

#RCVQUE,RCVOPI 

i RCVQUE,RCVOPO 

^ERRQUE,ERRQPI 

ERRQUE,ERRQPn 

XMTQUE,R3 

IS 
LCKOUT 



;POrNT THE TRANSMIT QUEUE ENTRY ( IN > POINTER' 

ITO THE BEGINNING OF THE QUEUE 

;P0INT THE TRANSMIT QUEUE RETRIEVAL (OUT) 

;P0INTER TO THE BEGINNING OF THE QUEUE 

;SET UP THE RECEIVER QUEUE POINTERS 

?SETUP THE ERROR QUEUE POINTERS 

;POINT R3 TO THE BEGINNING OF THE QUEUE AREA 

JUSING R4 AS k COUNTER CLEAR - 

^TRANSMITTER, RECEIVERS, AND ERROR QUEUES.... 

;TRANSMITTER TEXT BUFFER... 

;RECEIVER SILO BUFFERS 

?CLEAR THE PUFFER ACCESS FLAG 



2702 000004 

"■-^ 003172 

003166 



;THIS BLOCK SETS THE WATCHDOG TIMER FLAG, INITIALIZES THE DHll CONDITIONS, SETS THE CHAR 
;AND BAUD RATE, AND SETS THE EXTENDED ADDRESSING RITS FOR THE ACTIVE DHllS 



003304 
004032' 



actvate:mov 

MOVB 

MOV 

MOV 



SELECT, RO 
R0«D0NFLG 
ADDR,R1 
#XHTBnF,VA 



is: 



2$: 
3§: 



GETPAS, BEGIN, VA 
ASR RO 
BCS 3S 
BEQ INITIAL 
ADD #20, Rl 
BR IS 
#ftl 



000006 
000010 



MOV 

BIS 
BIC 
BIS 
MOV 
MOV 

MOV 

JSR 
DEC 
BEO 
INC 
BR 



#RIT11,(R1) 




#-4,10(Rl) 

PC,BAUDRTE 

R2 

2S 



\V' 



;COPY THE OEVICE SELECTION PARAMETER 

;SET THE WATCHDOG TIMER DEVICE COMPLETION FLAG 

?LOAD THE ADDRESS OF THE FIRST DHll 

;GET THF PHYSICAL ADDRESS OF TH^ TRANSMITTER 

;BUFFER 

;GET PHYSICAL ADDRESS FROM 16-BIT VA 
^ISOLATE A SELECTION FLAG IN THE CARRY BIT 
?IF SELECTED, GO SET UP THE DEVICE REGISTERS 
;IF NO MORE SELECTED, GO SET UP THE DATA 
;POINT Rl TO THE NEXT DHll 
;PROCESS NEXT DHll 
;MASTER CLEAR THIS DHll AND SELECT LINE 

?ENABLE MAINTENANCE MODE OPERATION 

;5RASE INVALID INFORMATION FROM THE EA BITS IN 

;SET THE EXTENDED ADDRESS BITS OF THE TEXT 

?USB R2 TO COUNT 16 LINES BEING SET UP 

;L0AD THE PHYSICAL ADDRESS OF THE TRANSMITTER 

;BUFFER INTO THE CURRENT ADDRESS REGISTER 

?L0A0 THE BYTE COUNT REGISTER WITH THE NUMBER 

?0F CHARACTERS TO BE TRANSMITTED 

;G0 CALCULATE THE BAUD RATE TO BE USED 

;REDUCE THE COUNT. ARE ALL 16 LINES SET'> 

?IF YES, GO PROCESS NEXT DHll 

?IF NO, INCREMENT THE LINE SELECTION PARAMETER 

;G0 SET UP THE NEXT LINE 



?THIS BLOCK SETS Up THE TRANSMITTER TEXT WITH THE TEST DATA . IT INSURES THAT THE 
;EXTENDED ADDRESS BITS ARE SET, THEN STARTS EACH RECEIVER AND EACH TRANSMITTER SELECTED 



00 



m^ 



:mov 

MOVB 
MOVB 

MOV 
MOVB 
INCB 
DEC 



#XMTBUF,R1 

DATA,PGNDATA 

0ATA,BGNDATA4-1 

K^fcR2 

DATA,(R1)+ 

DATA 

R2 



;POINT Rl TO THE START OF THE BUFFER AREA 

;CQPY THE FIRST DATUM BEING TRANSMITTED IN THIS 

;GHOUP .BGNDATA WILL BE USED TO SET 

;UP LNCKBF(THE LINE CHECK BUFFER ) IN THE CKDATA ROUTINE 

JUSE R2 TO COUNT THE LOOP ITERATIONS 

;PUT A CHARACTER IN THE BUFFER, BUILDING THEM 

;IN DATA, WHICH WILL CREATE A BINARY INCREMENT PATTERN. 

?REDUCE COUNT. HAVE ALL CHARACTERS BEEN MADE? 
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SEQ 0011 



47 6 
477 
47R 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
480 
490 
491 
492 
493 
494 
495 
49'> 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
51U 
511 
512 

m 

515 
516 
517 
518 

m 

523 
524 
525 
526 
527 
528 
52Q 
530 
531 



000662* 
000664- 
000670- 
000674- 

000700; 

000706- 
000710- 



001372 
016700 
016701 



006200 
103404 
001414 
062701 
000772 
012761 



000776- 
001002- 
001006- 

001010- 

001012- 

.4- 



0010 

OO10__ 

001024- 



1^2- 



040367 
005067 
006003 

103405 

005204 

06 2767 
00Q771 



000015 



000716- 052711 



000722- 012761 
000730- 000764 



000732- 012767 
000740' 005004 
000742- 

000742- 104407 
000746- 104407 
000752- 105767 

000756- 001454 
000760- 005304 
000762- 001367 
000764- 005367 
000770- 001363 



000772- 116703 003051 



001030- 
001036- 



003134 
17711? 



000020 
000040 
020000 
177777 



000005 003070 



000000- 
000000- 
003071 



3S: 
4$: 



BNE 

MOV 

MOV 

ASR 

BCS 

BEQ 

ADO 

BR 

MOV 

BIS 

MOV 
BR 



SELECT, RO 

ADDR^Rl 

RO 

THRSET 
120, Rl 

ttl2.,16(Rl) 

#BIT13,(R1) 

5i^ 



'II 



ir NO^ GO LOAD THE NEXT CHARACTER 

COPY THE DEVICE SELECTION PARAMETER 

LOAD THE ADDRESS OF THE FIRST DHll 

ISOLATE A SELECTION FLAG IN THE CARRY BIT 

IF SELECTED, GO START THE DEVICE 

IP NO MORE SELECTED, GO START WATCHDOG TIMER 

POINT Rl TO THE NEXT DHll 

GO PROCESS THE NEXT DHll 

LOAD THE SILO ALARM ' ""* 

REGISTER 

ENABLE TRANSMITTER AND NON-EXISTENT MEMORY 



RM LEVEL INTO THE SILO STATUS 



#-lrl2(Rl) 



? INTERRUPTS 

;ENABLE THE TRANSMITTERS FOR ALL 16. 

JPROCESS THE NEXT DHll 



LINES 



;THIS IS THE WATCHDOG TIMER. WHEN A DEVICE HAS SUCCESSFULLY TRANSMITTED AND 

;RECEIVED ALL DATA. IT CLEARS ITS CORRESPONDING BIT IN DONFLG. IF THIS 

;DOES NOT OCCUR, AN ERROR MESSAGE IS REPORTED. STATC IN THE 

?ERROR MESSAGE TELLS WHICH DEVICE WAS SLOW OR HUNG. CSRA WILL BE ZERO. 

;A module MESSAGE IS REPORTED. IF MORE DEVICES ARE TO BE PROCESSED, THIS 

; ITERATION TS CONSIDERED COMPLETE- IF NO DEVICES REMAIN TO BE PROCESSED, 

;THE MODULE IS DROPPED. 



TMRSET: 
TIMER: 

IS: 



003040 



003022 
17707? 



000020 
00302? 



2S: 



104420 000000- 004052' 
004067- 



MOV 
CLR 



#5,TMRCNT 
R4 



BREAK5, BEGIN 
BREAK?, BEGIN 



TSTR 

BEQ 
DEC 
BNE 
DEC 
BNE 

MOVB 

BIC 
CLR 

ROR 

BCS 

INC 

ADD 

BR 

MOV 



DONFLG 

FINISH 

R4 

1$ 

TMRCNT 

TIMER 

D0NFLG,R3 

R3, SELECT 

CSRA 

R3 

3$ 

R4 

|20,CSRA 



;SET THE TIMER COUNT FOR THE BREAK LOOP 
jnSiNG R4, RETURN TO MONITOR 65535 TIMES 

;temporary return to monitor.... 

;THEN CONTINUE AT NEXT INSTRUCTION. 

;if donflg is clear, each selected device has 

; successful 

;if so, perform endpass processing 

;if not, reduce count and break again 

?break if count not exceeded 

;reduce the overall time. is it exceeded? 

;if no, start another break loop 

sif timeout occurred, save the remaining flag 

,IN R3. 

;clear the selection flag for this device 

;/setup to report csr 

;determine which device was read for reporting 

;purposes 

;if this is the device, r4 contains the correct 

jline number... go report it 

?if not, increment r4, which has initially 

;from the previous loop 

;/add device offset for correct dhll 



2S ;G0 SEE IF THIS IS THE DEVICE 

R4,NUMBA1 ;THE DEVICE NUMBER WILL BE REPORTED AS STATC 



?CONVERT NUMBAl TO ASCII 
?STORE AT M2 



001040- 004767 00077? 



OTOAS, BEGIN, NUMBAl, M2 

JSR PCSAVRBG ;SAVE THE REGISTERS BEFORE LEAVING THE MODULE 
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SEQ 0012 



532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
54R 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
550 
560 
561 
562 
563 
564 
565 
56*5 
567 
569 
560 
570 

572 
573 
57 4 

577 
570 
579 
580 
581 
582 
583 
584 
5R5 
586 
5n*7 



001044- 
001052- 



056767 176736 
005067 177030 



001056- 104405 000000' 



001064- 
001072- 
001076- 
001102- 



104403 000000" 
004767 000776 



005767 
001002 



001104- 104410 



001110- 

ooiilo- 

001114- 



001120- 
001124- 

001142- 
001150- 
001152- 
001154- 
001156- 
001160- 
001162- 
001164- 
001170- 
001176' 
001204' 
001206' 
001214- 
001216- 
001220- 
001222- 
001226- 

001230- 
001234- 
001240- 
001244- 
001246- 
001250- 
001252- 



012604 
012603 



000000 
004054- 



ADD ADDR,CSRA 
CLR ERRTYP 

HRDERSfBEGIN,NULL 



ttitltit***** 



;/ADD BASE ADDRESS TO OFFSET FOR ERROR CALL 
SUNK 



«*««*««***««*******««***** 



002722 
000000- 



^SGN$, BEGIN, HUNG 



TST 

BNE 



ft ft ft* ft £*********«****«******** **************** 
? ASCII MESSAGE CALL WITH COMMON HEADER 

jQjj-, 



sRESTORE ^ _ . ^- _ 

>ARE THERE ANY ffE¥IL_- 

;IF YES, REDUCE COUNT AND CONTINUE 



_ THE PREVI-,_ 

E THERE ANY DEYICES STILL ACTIVE? 



104413 000000- 
000167 177276 



002664 
000002 



000002 
002660- 

002642- 



176644 
176642 
00057? 



;THIS 
FINISH 



US REGISTER VALUES 

. SftKK THKKK AN¥ UKVl"" ---'- 

FINISH 

ENDS, BEGIN 
BLOCK REDUCES THE ITERATION COUNT AND GOES TO SETUP2 IF THE COUNT IS NOT EXCEEDED 



;IF NO, DROP THE MODULE 



ENDITS#BEGIN 
JMP SETUP2 



; SIGNAL END OF ITERATION. 
;MONITOR SHALL TEST END OF PASS 



;TRANSmTTER INTBRR 
;THTS ROUTINE STORE 



STOR 
TRA 



_.- _ THE ADDRESS OF THE CSR POINTER (OFFSET IN TH_ 

Tk^LEl ^N THE TRANSMITTER QUEUE. IT DETERMINES THIS A NON-EXISTENT MEMORY ERROR 



rHE JSR LINKAGE 



002656 
002650 



002642- 002640 



002614 
002605 

002576 



MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 



;LOAD THE OFFSET TO THE CSR INTO TRANSMITTER QUEUE 
SUPDATE THE QUEUE ENTRY POINTER 

PI ;has the queue boundary been exceeded? 

;IF NO, CONTINUE PROCESSING 

;IF YES, RESET THE POINTER TO QUEUE BEGINNING 

;REST0RE the previous R5 VALUE 



;0R A DATA INTERRUPT. IF IT IS THE FORMER, IT IS SETUP FOR REPORTING. IF IT 
;IS THE LATTER, FURTHER SERVICE IS DEFERRED TO PRIORITY LEVEL BY A PROGRAM 
JINTERRUPT REQUEST, THE ROUTINE THEN ENABLES INTERRUPTS FOR THE CORRESPONDING RECEIVER 
;AND RETURNS CONTROL TO THE MONITOR. 

XMTINT: MOV 

ADD 

CMP 

BHIS 

MOV 
IS: MOV 

MOV 

MOV 

MOV 

MOV 

MOV 
XMTSRV: MOV 

ADD 

CMP 

BHIS 

MOV 
IS: MOV 

TST 

BMI 

BIT 

BNE 



R5,»XMT0PT 

»2,XMTQPI 

fXMTQUE*-16,XMTQ 

|fXMTQUE,XMTQPI 

( SP )*",R5 

R0,-(SP) 

R1,-CSP) 

R2,-(SPi 

R3,-(SpJ 

R4,-(SP) 

»XMTQP0,R1 

f2,XMTQP0 

|XMT0UE*-16,XMTQ 

»XMTQUE,XMTQPO 
fRl| -^ 

T 

BIT10,(R0) 



EXCEEDED? 



(R1),R0 



R0,CSRA 

fR6),ACSR 

PC,SAVREG 

(SP)*,R4 

(SPH,R3 

(SPU,R2 

(SP)*#R1 



?FETCH THE OFFSET FROM THE QUEUE 
lUPDATE THE QUEUE RETRIEVAL POINTER 

PO ;HAS THE QUEUE BOUNDARY BEEN 

J IF NO, CONTINUE PROCESSING 

?IF YES, RESET POINTER TO BEGINNING OF THE QUEUE 

;L0AD C^R ADDRESS INTO RO 

;IS THIS A VALID INTERRUPT? 

;IF YES, GO ENABLE RECEIVER INTERRUPT 

;IF NO, DETERMINE THE TYPE OF ERROR 

;IF NON-EXISTENT MEMORY (BIT 10 SET) GO PROCESS 

;THAT TYPE OF ERROR. OTHERWISE IT IS A FALSE INTERRUPT 

?LOAD THE DEVICE ADDRESS 

;SAVE THE CSR CONTENTS 

;SAVE THE REGISTERS BEFORE ERROR MESSAGE 
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588 001254* 012600 

i|o 001256* 000004 

III 

55«J 001310* 104400 



607 



001264- 
001272* 



012767 
104405 



001264* 

176614 

000000 



m- nil 

Iw- 8BI. . 

01334- 012602 

mW' Mil 



001332 
091334 



603 




01400- 05 2710 

iifeir 

r- 



,0000- 

Ooioo 



00141_ 

001414' 

OOI4I6- 



mar- 

851432; 



001441 
0014- 

0014! 



'-'-'ur- 



000002 002362 
002700- 002354 

002662- 002344 



10$: 



2S: 



11$: 



MOV (SP)4-,R0 

^iRQirBEGlSrioi*" 



aSR PC-GETRES 

BIC #120000r(R0) 



; QUEUE UP TO CONTINUE AT 10$ AND RTI 
S ILLEGAL INTERRUPT 

lr**«rft*** *********** ******** 



EXITS, BEGIN 



MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 



Jc^ 

(SP 
CSP 
(SP 
(SP 



CSRA 

kACSR 
VREG 
♦,R4 

♦ ,R3 

♦ rR2 

♦ #R1 

♦ ,R0 



»*«*********«****« ft 



;RESTORE THE REGISTERS 

;DELETE the false interrupt AND THE INTERRUPT 

;enable 

;EXIT to MONITOR. MODULE WATT FOR INTERRUPT. 
;LOAD THE DEVICE ADDRESS 
JSAVE THE CSR CONTENTS 
;SAVE THE REGISTER VALUE BEFORE ERROR MESS. 



) 



JlRQS, BEGIN, 

•*****»****' 

HRDER$,BEGI 
• ********** 

JSR PC, 

BIC #12 
EXITS, BEGIN 

BIS fBI 

MOV (SP 

MOV C SP 

MOV (SP 

MOV C SP 

MOV (SP 
RTI 



lis 



ft*********** 



GETREG 
2000, (RO) 



T6,(R0) 

3 
R2 



; QUEUE UP TO CONTINUE AT 11$ AND RTI 

5BAD~ADDRisS 
********************************* ft ****** 

;N0N-EXISTENT memory addressing FAILURE 
************************************ ftftftft ft 

;REST0RE THE REGISTERS 

;clear interrupt enable and interrupt bits 

;exit to monitor- module wait for interrupt. 
;enable receiver interrupts 



♦ ,R0 



JRECEIVER INTERRUPT SERVICE ROUTINE 
;THIS ROUTINE STORES A POINTER TO THE CSR ADDRESS OF THE INTERRUPTING DEVICE IN THE 
;RECEIVER QUEUE. SERVICE IS DEFERRED TO PRIORITY LEVEL 0. AT DEFERRED SERVICE (RCVSRV), 
;THE offset is fetched from the QUEUE. THE INTERRUPT AND INTERRUPT ENABLE BITS ARE 
^CLEARED AND THE SILO IS EMPTIED INTO THE SOFTWARE BUFFER. IF ALL CHARACTERS 
;HERE hot received, this is reported. CHECK THE BUFFER AND REPORT DATA ERRORS. IF 
^ANOTHER RECEIVER IS ALREADY USING THE LINE CHECK BUFFER (LNCKBF), SUBSEQUENT 
;RECEIVERS will not BE PERMITTED ACCESS UNTIL THE FIRST IS COMPLETE. IF THERE 
;ARE AMY CHARACTER ERRORS REPORT THEM. WHEN ALL DATA ARE CHECKED, IT RELEASES 
;THE LINE CHECK BUFFER AND CLEAR THE CORRESPONDING BIT IN DONFLG- 



RCVINT: 



is: 



MOV 

ADD 

CMP 

BHIS 

MOV 

MOV 



§RCVQPI 
RCVQPI 



;STORE THE OFFSET IN THE RETRIEVAL QUEUE 



#2, RCVQPI ;UPDATE THE QUEUE ENTRY POINTER 
lRCVQUE*16,RCVQPI^iHAS_THE_QUEUE_RgUN0ARY_BEEN EXCEEDED? 






NOT, CONTINUE PROCESSING 



#RCVQUE,RCVOPI ;RESET THE POINTER TO QUEUE BEGINNING 
(SP)+,R5 ;RESTORE THE PREVIOUS VALUE OF R5 
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644 001452- 000004 




000000- 

002365 

000000- 
000000- 

0023451 
002306 

nm- 

002662- 
000300 



077000 
000100 



000240 

000000- 

QOOOOO- 

176260 

176250 
176246 
"'"176 



001460- 



mm 

002262 
002272 



PIRQS, BEGIN, RCVSRV 

IsTB LCKOUT 

BREAKS, BEGIN 
BREAKS, BEGIN 



QUEUE UP TO CONTINUE AT RCVSRV AND RTI 



11$: 



IS: 



3S: 



BR 

DECB 

MOV 

ADD 

CMP 

BHIS 

MOV 

MOV 

BIC 

MOV 

MOV 

MOV 

MOV 

BGE 

DEC 

BNE 

BR 

TST 

JSR 



;test the buffer lock flag- is access permitted? 
?if yes, go set the lock and check the data 
;temporary return to monitor.... 
;then continue at next instruction. 
;Try to access again 

;nENV OTHER accesses to the BUFFER 

;fetch the offset from the queue 



RCVSRV 
LCKOUT 
aRCVQPO,R0 

|2,RCVQP0 ;update the queue retr 

'RCVQUE*16,RCVQP0 J HAS THE QUEUE BOUN" 



C?QUE,RCVQPO 



#lc?Qut,i 
(ROi*,R! 
1300, ^RD* 

|770D0,RCVTMR 
fRl);(R2)* 

r! 

2$ 

CKDATA 

-CR2) 

PC,SAVREG 



RIEVAL POINTER 
DARY BEEN EXCEEDED? 



317 176240 
000000- 000000 
000214 



000010 

003770- 

002146 



000010 002130 
000100 



;IF NO4 CONTINUE PROCESSING 

;IF YES- RESET THE POINTER TO THE QUEUE BEGINNING 

;LOAD THE CSR ADDRESS INTO PI 

;DISABLE receiver INTERRUPT AND INTERRUPT ENABLE 

;AND POINT Rl TO THE NEXT RECEIVED CHAR. REGISTER 

;LOAD THE SOFTWARE SILO BUFFER ADDRESS 

;SET THE RECEIVER BREAK LOOP TIMER 

;SET THE COUNT FOR STORING THE DATA 

;STORE A WORD IN THE SOFTWARE SILO 

JIF THE DATA WASN-T VALID, GO ALLOW A LITTLE TIME FOR IT 

;IF IT WAS VALID, REDUCE THE COUNT- 

;IF NOT ZERO. GO STORE THE NEXT WORD 

;IF ALL CHARACTERS RECEIVED, GO CHECK THEM 

;RESET R2 to THE PROPER BUFFER LOCATION 

sMon r^,oft»Rc.i. ;SAVE THE REGISTER VALUES 

BREAKS, BEGIN ;TEMPORARY RETURN TO MONITOR-. .- 

BREAKS, BEGIN ;THEN CONTINUE AT NEXT INSTRUCTION. 

JSR PC,GETREG ;RESTORE THE REGISTER VALUES 

DEC RCVTMR ;HAS ENOUGH TIME BEEN PERMITTED FOR A CHARACTER? 

8PL 25 ?TRY TO GET ONE. 

MOV R3,ASTAT ;STATC WILL SHOW HOW MANY CHARACTERS 
;WERE NOT RECEIVED 
SRA ;L0A0 THE DEVICE ADDRESS 
*^- r ^ACSR ;L0AD THE CSR CONTENTS 

JSR PdsSkyfiEG ?SAVE THE REGISTERS 

MOV^^^ tfMfERRTYP SuNKNOWN RCVR ERROR 

**************************************************************** 

"82l8l£iS5Il!«fi2tL- ^^^^^IDID^NOT receive all 64. CHARACTERS-STATC=NO. MISSING 
J **************** ft* *************************** **********! ****** ft 

JSR PC, GETREG 

;THIS ROUTINE PERMITS ONLY ONE DEVICE TO HAVE ITS DATA CHECKED AT A TIME. PENDING 
;DEVICES RETURN TO THE MONITOR IN A WAIT LOOP. WHEN ACCESS IS PERMITTED, THE DATA IS CHE 
;F0R each line of the device. DAT* ERRORS ARE REPORTED- 



MOV 
MOV 



I 



\u 



001716- 002024 



CKDATA: MOV 
MOV 

2S: MOV 
DEC 
BNE 
MOV 
MOV 
MOV 

3S: MOV 
BGE 



|ln6kbf,r5 
bgndata,(r5)* 

R3 
2S 



tf64.,R5 



),DVCNMBR 



(R2)4.,R0 
RCVDONE 



;SET UP A COUNT FOR CLEARING THE BUFFER 

;POINT TO THE BEGINNING OF THE BUFFER 

?SET UP TWO LINE CHECK BYTES 

;REDUCE the COUNT. HAVE 16. BYTES BEEN CLEARED? 

;IF NO, GO CLEAR THE REMAINING 

;LOAD THE SOFTWARE SiLO ADDRESS IN R2 

;SAVE THE NUMBER OF THIS DEVICE 

;L0AD count to compare 64. CHARACTERS 

;fetch a word from the silo into ro 
;iF iT-s invalid, go clean up buffers 
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700 
701 
702 
703 
704 
705 
706 
707 
708 
70Q 
710 
711 

T,\] 

714 

715 

717 

718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
7 2fl 
72Q 
730 
731 
732 
733 
734 
735 
736 
737 
738 
73^ 
740 
741 
742 
743 
744 
745 
746 
747 
74fl 
749 
750 
751 
752 
753 
754 
755 



001720' 
001724' 
001726' 
001732' 
001736' 
001740- 
001744' 
001752- 
001754- 
001760- 
001764' 
001766' 



001770' 
001774' 
001776' 
002000' 
002002- 
002006- 
002010- 
002014' 



002020- 
002022- 
002024- 
002026- 
002030=' 
002032- 
002034- 



002036- 
002042' 
002044' 
002046' 
002050' 
002052' 
002054 
002060' 
002062' 
002066 
002072' 



032700 
001402 


070000 




004767 


000304 


110067 


002112 


000300 




042700 


177750 
003770 


un'o] 




004767 


°o°o§^?? 


105260 
005303 




001352 





105067 
005000 
000261 
006100 
005367 
002374 
140067 
104400 



010320 
113520 
005200 
022323 
010223 
005723 
000205 



016705 
010025 
010125 
010225 
010325 
010425 
022705 
103002 
012705 
010567 
000207 



002033 
000000- 



001756 



002762' 



002702- 
001726 



4$; 



BIT 

BEQ 

JSR 

MnVR 

SWAB 

RIC 

CMPR 

BEQ 

JSR 

INCB 

DEC 

BNE 



#70000, RO 

PC^STaiERR 
RO^RCVD&TA 
RO 
#177760^R0 



?ARE THERE ANY TRANSMISSION ERRORS? 

?IF N0|- GO DETERMINE THE LINE NUMBER 

fIF ¥ES- GO DETERMINE THE ERROR T¥PE 



?SAVE TfiE RECEIVED CHARACTER , „„^„ „„^^ 
|PUT THE LINE NUMBER IN RO'S LOMER BYTE 
ffif//nu*Ku ;ISOLATE THE LINE NUMBER IN RO 
LNCKBF(RO)/RCVDATA J IS THE DATA CORRECT? „.,,„,„«.,„ 
5S ;IF ¥ESr GO CHECK THE NEXT CHARACTER 

PC^DERROR /IF NO^ GO REPORT A DATA ERROR _„,„ ,^_ 
LnCkBFCRO) ?SET Uf THE NEXT CHARACTER FOR THIS LINE^ ^„^„^^^^ 
R3 JREOUCE THE COUNT^ ARE ALL 64, CHARACTERS CHECKED? 

3$ -IF NO, GO CHECK THE NEXT CHARACTER* 

JTHIS ROUTINE UNLOCKS THE LINE CHECK BUFFER TO PERMIT ACCESS BY OTHER DEVICES, 

•IT THEN COMPUTES THE LINE NUMBER AND CLEARS THE APPROPIATE FLAG FROM THE WlTCHDOG 

/TIMER BYTE. 



HCVOONF. :CLRP 
CLR 
SEC 

15: ROL 

DEC 
BGE 
BICB 
EXIT$/I 



LCKOUT ?RESET THE BUFFER ACCESS FLAG^ 

RO ;THE FLAG WILL PROPAGATE IN RO 

?USE THE CARRY BIT TO BUILD THE DELETION FLAG 

RO ?MOVE THE FLAG TO THE NEXT DEVICE 

DVCNMBR JwHEN THIS NUMBER IS NEGATIVE^ THE CORRECT 

IS ^DEVICE IS POINTED TO. 

R0*DONFLG JCLEAR THIS FLAG 
EGir ?EXIT TO MONITOR* MODULE WAIT FOR INTERRUPT, 



;SU8R0UTINES 
?THF FIRST IS THE VECTOR LOADING SUBROUTINE 



„_ THE VECTOR ADDRESS IS PASSED IN RO^ 

THE LINKIHG„T.ABLE_ ADDRESS. IS_R||SED IN ~ 



IthI RUSS^lEQUEsPpRIORlffEivEL IS" A" PAR AMETEH T AKEN "iMDlRECTLY THROUGH R5 



R3» 



VCTLOAD:MOV 
MOVB 
INC 
CMP 
MOV 
TST 
RTS 



R3#(R0)* 
i(R5H/(R0)* 

it'' 



JLOAD THE ADDRESS OP THE LINKING INSTRUCTION 
>AND THE PRIORITY LEVEL INTO THE VECTOR 
?POINT RO TO THE NEXT VECTOR ADDRESS 
>POINT R3 TO THE CSR INSERT LOCATIOM 
;LOAD THE DEVICE ADDRESS IN THE LINK TABLE 
; ALIGN R3 FOR THE NEXT DEVICE 
JRETURN TO CALLING BLOCK 



;THIS ROUTINE SAVES THE REGISTER VALUES IN THE ERROR QOEUK^ A FiRSf-IN, 
;FIRST-OUT DISCIPLINE yRAPAROUND BUFFER^ 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BHIS 

MOV 

MOV 

RTS 




•9>60/R5 



jERRQUErRS 

R5|-ERRQPI 

PC 



?OSE R5 FOR INDEXING CAPABILITY 
ISAVE RO,.. 
;SAVE Rl-,« 
;SAVE R2».. 
;SAVE R3.,, 

?HAS THE QUEUE BOUNDARY BEEN EXCEEDED? 

I IF N0# GO RELOAD THE POINTER 

;RESET R5 TO THE QUE BEGINNING 

?SET THE ENTRY POINTER TO NEXT ENTRY POINT 

?RETURN TO THE CALLING BLOCK 



;THIS ROUTINE RETRIEVES REGISTER VALUES FROM THE ERROR QUEUE 
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SEQ 0015 



756 


002074- 


6705 


001722 


757 




00- 


012500 




758 


002 


.02- 


012501 




750 


002^ 


L04' 


012502 




760 


002 


06' 


llWi 




Veh 


002 
002 


110' 
,12- 


002762 


763 


002 


16' 


103002 




764 


002 


20' 


012705 
010567 


002702 
00167^ 


765 

766 


002 


L24' 


002130- 


000207 




767 








768 








770 








Vi\ 








002 


32- 


005767 


175660 


773 


002 


36- 


016704 




??^ 


002 


iV- 


175652 


002 






776 


002 
002 
002 


.54- 


012703 


lOOOOO 


777 
778 


000017 


770 


002 


n- 


006004 




780 


002 


103402 
005303 




781 


002 


64- 




782 




'ir- 


000774 




783 


002 


000257 




784 


002 


12" 


010305 




785 


002 


74- 


006105 




786 

787 


002 


U- 


006105 
006105 




788 


002202- 


006105 
060305 




IHO 


002204- 
002206' 




790 


000305 




791 


002210- 


006005 




792 


002212' 


°oi!?8i 




793 


002214' 


000003 


794 


002220- 
002224' 


050561 


000004 


705 


000207 




??^ 


002226' 


052761 


033503 


002234' 


000207 




79R 








799 








800 








801 


002236' 


004767 


177574 


802 


002242- 


010167 


175634 


80 3 


002246' 
002250' 


005004 




804 


016703 


001564 


805 


002254- 


re\n\ 




«06 


002256- 


000020 


807 


002262- 


005303 




808 


002264- 


001374 




RO" 


'oim- 


066704 


175514 


810 


010467 


175602 


Pll 


002 


276' 


010001 





MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BHIS 

MOV 

MOV 

RTS 



ERRQP0/R5 

CR5)*^R0 

(RSU^Rl 

(R5W/R2 

'R5U,R3 

R5WSR4 

ERRQUE*60,R5 

ftERRQUE,R5 

R5,ERRQP0 

PC 



?USE R5 FOR INDEXING CAPABILITY 

^RETRIEVE RO,-. 

I Rl,«. 

} R2.,. 

? R3.,» 

;AND R4 

;HAS THE QUEUE BOUNDARY BEEN EXCEEDED? 

?IF N0# GO RELOAD THE POINTER 

;RESET R5 TO THE QUEUE BEGINNING 

;SET THE RETRIEVAL POINTER TO THE NEXT FETCH POINT« 

?RETURN TO THE CALLING BLOCK 



;THIS ROUTINE CALCULATES THE BAUD RATE FROM THE SRI OPTION. IF SRI IS 0*.THE DEFAULT 
JRATES OF 9600. ARE ASSIGNED. THE LEAST SIGNIFICANT BIT IS THE ONLY ONE CONSIDERED. 
JTHE BAUD RATES ARE THEN LOADED INTO THE PROPER LINE PARAMETER REGISTER. 



m 



2$: 



000004 35: 



8AUDRTE:TST 
BEQ 
MOV 
BPL 
BIC 
BEQ 
MOV 
ROR 
BCS 
DEC 
BR 
CCC 
MOV 
ROL 
ROL 
ROL 
ROL 
ADD 
SWAB 
ROR 
ROR 
BIS 
BIS 
RTS 
BIS 
RTS 



SRI 

SR1/R4 

|BIT15/R 

2$ 

R3 
IS 

R3,R5 

R5 

R5 

R5 

R5 

R3i-R5 

R5 

R5 

R5 

#3^R5 

R5,4(R1) 

|33503/4(Rl) 



1) 



?IS A SPECIFIC RATE SELECTED? 

>IF NO-GO ASSIGN THE DEFAULT RATE 

;IF YES COPY SRI 

;BR if NOT 8. WORDS BETWEEN VECTORS 

;clear vector select bit 

;br if default - use 9600 baud 

sset up the bit configuration for a baud rate selection 

; isolate the next bit ik the carry bit 

jif this is the b tt^ put together the baud rate 

;if not#calculate the next bit configuration 

jgo check the next alternative 

jeliminate extraneous flags before rotating 

;make a duplicate copy of the baud rate 

jbuilo the transmitter rate in r5 



;ADD THE RECEIVFR RATE TO THE TRANSMITTER RATE 
?ALIGN THE RATE TO BIT POSITIONS 6-13 



?PLACE THE BAUD RATES IN THE LINE PARAMETER REGISTER 
;RETURN TO THE CALLING PROCEDURE 
?SET THE DEFAULT RATEC9600. BAUD) 



?RETURN TO CALLING PROCEDURE 



;THIS routine DETERMINES WHAT TYPE OF ERROR WAS INDICATED BY THE SILO AND REPORTS EACH 



STATERR:JSR 
MOV 
CLR 
MOV 
BEQ 
ADD 
DEC 
BNE 
ADD 
MOV 
MOV 



IS: 



2$: 



PC/SAVREG 
R1,ACSR 
R4 
DVCNMBR/R3 

A0DR/R4 
R4/CSRA 
RO/Rl 



?/save the registers 
;report the csr contents 
;/setup to calculate 

//THE CSR 

> /DEVICE JUST ADO ADDRESS 

; /POINT NEXT DHll 

; /DECREMENT DH NUMBER 

?/RlGHT DHll? 

;/AnD BASE ADDRESS TO OFFSET 

;/REPORT CSR ADDRESS 

?CALC LINE tf 
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812 
813 
814 
815 
815 
817 
818 
819 
820 



ill 



830 

lli 

833 



8: 
838 

84? 
841 
84~ 



846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 

§11 

in 

862 
863 
864 
865 
866 
867 



002306 



002 

002326- 

002334* 
002336' 
002340' 



002356 • 
002360' 

002366- 



: mm 

010167 
006100 
006100 
03006 
'—67 



- 103006 
' 01276" 






104406 

006100 
103006 
0127 67 

104406 

006100 
103006 
012767 

104406 

004767 
000207 



002402 
2414 



843 002416- 

844 002422- 

845 002424- 



mnr- 

002452- 
002454- 
002460- 
002464- 

002470- 

002474- 
002500- 



002502- 
002506- 
002510- 



004767 

mm 
mm 

005303 

- nm 



0467 
6067 



mil 

010067 

104404 

004767 
000207 



177770 
175572 



000021 
000000- 



000022 
000000- 



115560 
000000 



175540 
000000 



000023 175520 
000000- 000000 
177474 

177430 
001424 
000020 



175354 
175442 



J75442 



175436 



175424 

003770- 

175412 

000000- 

177374 



004567 
000000 
002770- 



Rl 
1177770, Rl 



»177770eR 
Rl^ASTAT 



3s: 



;get correct half 
;leave only line v 

?PUT IT IN ASTAT 

?PLACE THE OVERRUN BIT IN THE CftRRY BIT 



5$: 



SWAB 

BIC 

MOV 

ROL 

ROL RO 

BCC 3| ;IF NO ERROR, GO CHECK THE NEXT BIT 

MOV ft21,ERRTYP ;OVERRUN ERROR 

S0Eg8l£^EGIN£N0LL JOVERRUN ERROR-LINE NUMBER IN STATC 

ROL RO ;PLACE THE FRAME BIT IN THE CARRY BIT 

8CC 4S^ ;IF NO ERROR, GO CHECK THE NEXT BIT 

MOV ^^ M22*ERRTYP ;FRAMING FRROR 

SOFERSrBEGIN^NULL IFRAMING ERROR-LINE NWMRER IN STATC 

ROL RO ;CHECK FOR A PARITY ERROR 

BCC 55^ ;IF NO ERROR, GO RESTORE THE REGISTERS 

MQV #23,ERRTYP JPARITY ERROR 

SDEISIcSIGIHcNyyi;^.^^ ^ fPARlTY ERROR-LINE NUMBER IN STATC 

.AJrft*5Sr*****&***»ft«t***ft«5r********»*»*************««*****^**ft*ft*** 



) 



isR 

RTS 



PC,GETREG 
PC 



JRESTORE THE REGISTERS 
;RETURN TO CALLING PROCEDURE 



;THIS ROUTINE CALCULATES THE BUFFER ADDRESSES OF THE INCORRECT DATA AND REPORTS THE ERRO 



DERROR: 

1$: 
2S: 



JSR 

CLR 

MOV 

BEQ 

ADD 

DEC 

BME 

ADD 

MOV 

MOVB 

MOVB 

TST 

MOV 



PC,SAVREG 

R4 

DVCNMBR,R3 

ADDR/R4 

R4,CSRA 

LNCKBF' 

RCVDAT 

-{R2) 

r2,wasaor 



tMC5BFCR0),AS 



;SAVE THE PRESENT REGISTER VALUES 

?/SRTUP 

;/T0 CALCULATE 

;/THE CSR 

;/POINT NEXT OHll 

?/DECREMENT DH NUMBER 

;/RIGHT DHll ? 

;/ADD BASE ADDRESS TO OFFSET 

;/REPORT CSR ADDRFSS 



;L0AD THE CORRECT DATA VALUE 

;LOAD THE ACTUAL DATA VALUE 

;GET THE SILO ADDRESS OF THE DATA 



_.Z#WII3llU«t ^UUAU li I _.. 

ADD |LNCKRF,R0 ^CALCULATE THE CORRECT 
MOV ftO,SBADR ;REPORT IT 
•*********%*************&*****************»**** 

DATERS^BEGIN ?DATA ERROR! ff 

. **************** »ft**»*******ftS***S**«* 



VALUE ADDRESS 
***************** 



5 ********************** ************************* *********«*««j^«« 
SR PCGETREG ;RESTORE THE REGISTERS 
RTS PC ;RETURN TO THE CALLING PROCEDURE 

tklNKAGE TABLE 
'?A?i!„P^'*X, PPSISTS OF A JSR INSTRUCTION FOLLOWED BY A LOCATION INTO WHICH THE CSR 
;LgADED- FOLLOWEp BY THE SILO^BUFFER ADDRESS, FOLLOWED BY A JSR FOR THE TRANSMITTER 
^INTERRUPT, THE CSR ADDRESS WORD, AMD THE NUMBER OF THE INTERRUPTING DEVICE 

LNKTAB: JSR R5,RCVINT ?LINK FOR RECEIVER 

SILOO 



DHAL DEC/Xll SYSTEM EXERCISER MODULE 
SOHALO.Pll 31-0CT-78 08:40 



176362 



MACYll 30A(1052) 31-OCT-78 08:42 PAGE 19 




897 
898 
899 
900 
901 
902 

HI 
904 
905 
906 
907 

910 
911 

til 

in 

918 

%\l 

921 
922 
923 



00264 



002642- 
002662- 
002702- 



003370 
003??0 



016_ 
0110 



000010 
000010 
000031 



00000 



004 
100 

m 

100 
020 



176652 



176342 



176632 



176322 



CNTTBl: 



XMTQOE! 

rcvque: 

ERRQUE: 



XMTBUF: 

SILOO: 
siLOi: 
SIL02: 
S1L03! 
LNCKBP: 





JSR 



SILOI 

JSR 



1 

JSR 



SIL02 

JSR 



2 

JSR 



SIL03 

JSR 



3 

17000 

17000 

17000 

17000 

11700 

6000 

5100 

3000 

1600 

750 

500 

350 

300 

260 

m 



;THESE ARE THE QUEUES. 



R5,XMTINT ;LINK FOR TRANSMITTER 

R5,RCVINT ;L1NK FOR RECEIVER 1 

R5,XMTINT ?LINK FOR TRANSMITTER 1 

R5,RCVINT ;LINK for RECEIVER 2 

R5,XMTINT ;LINK FOR TRANSMITTER 2 

R5,RCVINT ;LINK for RECEIVER 3 

r5,xmtint ;link for transmitter 3 



;DIFFERENT ITERATION COUNTS FOR 
;DIFFEREMT. BAUD RATES 



.blkw 
.blkw 

• BLKW 



8. 

a. 

25. 



;THESE ARE THE BUFFERS 



.BLKB 
.8LKW 
.BLKW 
-BLKW 

• BLKW 

• BLKB 



4. 

64. 

64. 

64. 

64. 

16. 



;tramsmitter service queue 
^receiver service queue 
terror service queue 



JFOUR CHARACTER TRANSMITTER BUFFER 

;RECEIVER BUFFER FOR DEVICE 0. 

JRECEIVER BUFFER FOR DEVICE 1 

^RECEIVER BUFFER FOR DEVICE 2 

;RECEIVER BUFFER FOR DEVICE 3 
-„„^«^„ 1^^..- .... 



?BUFFER FOR CHECKING INDIVIDUAL LINE DATA 
;THESE ARE THE QUEUE POINTERS 
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002074R 

000044R 
104405 



538 



596 

535 

95 
38 



?iP 
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615 
594 



672 
613 



6fl4 
682 



LNKTAB 
HAP22$= 



104416" 
OOOOOOR 



468 ff 

646 
706 
865S 



362t 
537 



651* 
709* 



717* 

848 



945# 
85 2 



594 

946# 

318 

350 

934 



319 


320 


337 


338 


339 


340 


341 


342 


343 


344 


351 


353 


M^ 


355 


364ff 


924 


925 


926 


927 


928 


935 


936 


937 


938 


939 


940 


942 


943 


944 


945 



ml 



PRfY2 

prtyI 



RTY3 
RTy4 
Rtys 

1 



0300 



005746 



RCVQPO 0040i6R 



RANDS = 

RANNOH 

RCfDAT 

RCVDON 

RCfINT 

RCVQPI 

RC' 



706 



944# 



8§r 


871 


877 


883 




637* 


638* 


639 


641* 


926# 


652 


653* 


654 


656* 


927# 
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SETOPl 

SET0P2 

SILOO 

SILOl 

SIL02 



002662R 



000056R 
OQ0060R 
000112R 
002036R 



d0306R 



000042R 
104406 



673* 
370 



583 

853* 

387* 

420# 
9161 
917| 
9181 
919l 

820 



m 
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639 
650 
941» 
3781 



602 
389 
549 



641 



669 
438 



679 
477 



742# 
514* 



910# 



801 
539 



839 
933» 



826 832 
400 411 



772 



774 



367» 

801# 



TMRCHf 

TMRSET 

TRPDFD= 

?A 

YCTLOA 

VECTOR 

WAS ADR 

XPLA6 

XMTBOF 
XMTINT 
XMTQPI 
XMTOPO 
XMTQUE 
XMISRY 



004032R 
002020R 
OOOOIOR 
000104R 
000116R 

mm 

002764R 



510 

443 
409 
392 
851* 



468 

868 

559* 

570 

422 

910» 



935# 

936# 
73ll 



915# 

874 880 

560* 561 

571* 572 

428 561 



911# 



915# 



886 
563* 
574* 
563 

916» 



924« 
925# 
572 

917# 



574 

918» 



909ff 
919« 



9611* 
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924 
925 
026 
927 

Q2P 
929 
930 
931 
93? 
933 
034 
935 
Q36 
9 37 
93^ 
030 
9 40 
941 
942 
043 
044 
945 
046 
947 
94R 
949 
Q50 
951 
052 
953 
054 
955 
056 
957 
05 «^ 
950 
ofiO 
961 
96? 



UU4U10- 
004012' 
004014' 
004016' 
004020' 
004022' 



004024' 
004026' 
004030' 
004032' 
004034' 
004036' 
004040' 
004042' 
004044' 
004046' 
004047' 
004050' 
004051' 
004052' 



004054' 
004056' 

004060' 
004066' 
004067' 
004075' 
004102' 
004110' 
004116' 



000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 

000 

000 

000 

000000 



004060' 
177777 

042504 
040 

000006 
040 

044445 

004124' 
000001 



XMTQPl: 
XMTQPO: 
RCVQPI: 
KCVQPO; 

ERRQPI: 
ERRQPO: 



SELECT: 

COUNT: 

TMRCNT: 

va: 
pa: 

EA: 

DVCNMBRl 

BGNHATA; 

RCVTMR: 

DATA: 

DONFLG: 

RCVDATA: 

LCKOUT: 

NUMBAl: 



044526 042503 Ml: 



M2: 

M3: 



052510 
020124 
051104 
022504 



043515 

040527 

050117 

000 



OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 



; TRANSMITTER QUEUE ENTRY (IN) POINTER 
jTRANSMITTER QUEUE RETRIEVAL POINTER (DOT) 
^RECEIVER QUEUE POINTERS 



?ERROR QUE POINTERS 

;THESE ARE THE PROGRAM PARAMETERS 



:.:) 



OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

.BYTE OPEN 

.BYTE OPEN 

.BYTE OPEN 

.BYTE OPEN 
OPEN 
.EVEN 



;THIS is the ASCII MESSAGE 



JACTIVE DEVICE SELECTION PARAMETER 

; COUNTER FOR THE NUMBER OF ITERATIONS 

^COUNTER FOR WATCHDOG TIMER 

;LOCATION FOR VIRTUAL ADDRESSfUSED BY GETPAl 

JARGUMENT RETURNED BY GETP AfPBYS ICAL ADDRESS) 

; ARGUMENT RETURNED BY GETPA(EXTENDED ADDRESS BITS) 

? NUMBER OF DEVICE BEING PROCESSED 

?TWO COPIES OF THE FIRST CHARACTER IN TRANSMIT PATTERN 

;RECEIVER BREAK LOOP TIMER 
;CHARACTER BUILDING BYTE 
;yATCHDOG FLAG FOR BUSY DEVICES 
; BUFFER FOR CHARACTER CHECKING 
?BUPFER ACCESS FLAG 



H'JNG: Ml 
-1 



.BLKB 6 

.ASCIZ ' HUNG%ir rikS DROPPED%' 



.EVEN 
.FND 
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ACSR 


00Q102R 
000S04R 


346tt 


582* 


601* 


678* 


802* 












ACTVAT 


438# 




















ADDR 


000006R 


im 


303 


440 


478 


532 


809 


846 








ADDR22= 






















ASB 




35ll 


848* 


















A ST AT 


000 04R 


675* 


814* 
















AWAS 


000 lOR 


849* 
772^ 


















BAUDRT 


OOOOOOR 


459 


















BEGIN 


309# 


372 
613 


443 


502 


503 


528 


535 


537 


542 


§11 






609 
855 
469* 


617 


644 


648 


649 


670 


671 


6R2 


724 


BGNDAT 


004042R 


470* 


602 


940» 














B TO = 


000001 




















BITl = 


000002 




















8IT10 = 


002000 
004000 


364« 
3641 


578 


















B Til = 


449 


















B TI2 = 


010000 


364# 




















BIT13 = 


020000 
040000 


364« 


486 


















BIT14 = 


im 




















B T15 = 


100000 


776 


















BIT2 = 


000004 
000010 
000020 


364« 




















BITS = 


364ff 




















BIT4 = 


3641 




















B T5 = 


000040 


354| 




















B T6 = 
8IT7 = 


tmn 


364» 
364# 


618 


















B T8 = 


000400 


364» 
364% 




















B TO = 


001000 


451 


















B EAK5= 
BRl 


104407 
000012R 


364lf 


502 


503 


648 


649 


670 


671 








364i 


410 


















BR2 


000013R 


407 


















RTODS = 
CDATA$= 
CKDATA 


104421 




















UtUh 


386 


690lf 


















CNTTBL 


UVoUl 


890» 


















CONFIG 


334tf 




















clKf 


nniu 


m 


515* 


\W 


532* 


5R1* 


600* 


677* 


810* 


847* 




DATA 


004046R 


469 


473 


474* 


942# 










DATCKS= 




itn 




















DATER$= 
DERROR 


855 


















002402R 
004047R 


708 


R39# 


















DONFLG 


B 




512 


723* 


943« 












DROP 




390 


















DYCNMB 




R04 


841 


939ff 












DVTDl 


000014R 


316tf 


368 


















EA 


004036R 


45'3 


938^ 


















ENDIT$= 


104413 


Iff 




















END*; = 
ERRQPI 




l| 


Vsh 


928«f 














ERRQPO 


004022R 
002702R 




765* 


929H 














ERROUF 


426 


427 


748 


750 


762 


764 


91Hf 








ERRTYP 
EXITS = 


0001Q6R 


?64| 


IW 


iir 


nv 


680* 


818* 


824* 


830* 






FINISH 


506 


540 


546« 
















GFTPA5= 


104415 


364# 


443 



















590 
820 



594 
826 



SEQ f^' ^ 



599 
832 



\ 
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000000 goo 

004124 001 



ERRORS DETECTED 

Default CLor " 



iBALS generated: 



XDHAL0,XDHAL0/SOL/CRF:SYM=DDXCOM,XDHALO 
RUN-TIMEI 1 2 .3 SECONDS 
RUN-TIME RATIO: 24/5=4.8 
CORE USED: 7K (13 PAGES) 






